home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / pascal / totsrc.zip / TOTFLAGS.INC < prev    next >
Text File  |  1991-02-11  |  2KB  |  80 lines
  1. (*
  2. TOTFLAGS.INC is included in all TOT units. You can add any global compiler
  3. directives, etc. to this file.
  4.  
  5.      The TOT conditional defines are
  6.  
  7.           FINAL - enable this directive when you are building the production
  8.                   version of your program. The activated settings are designed
  9.                   to reduce program code size, and increase execution speed.
  10.  
  11.           FLOAT - Enable this directive if your program will be using extended
  12.                   real types, i.e. singlee, double, extended and comp. When
  13.                   this directive is not enforced, all real types are set to
  14.                   be plain reals. programs compiled in this state will
  15.                   only run on machines fitted with a math coprocessor
  16.  
  17.         FLOATEM - This is the same as FLOAT except the program will run
  18.                   on systems that are not equipped with a math coprocessor.
  19.                   In case you were wondering, the compiler directive is an
  20.                   abbreviation for FLOAT EMULATION.
  21.  
  22.         OVERLAY - Use this directive if you want to overlay any of the
  23.                   toolkit units. Be sure to call the unitINIT proc in your
  24.                   main program, e.g. IOINIT. The unitINIT procedures
  25.                   perform any necessary unit initialization -- this cannot
  26.                   be accommodated automatically if the unit is overlayed.
  27.  
  28.     To active a compile directive, you must use the $DEFINE keyword. For
  29.     example, to enable full floating point math emulation in your program
  30.     include the following statement in the "DEFINES AREA" below:
  31.  
  32.                      {$DEFINE FLOATEM}
  33. *)
  34.  
  35. {+++++++++++++++++++++++++++    DEFINES   AREA   +++++++++++++++++++++++++++}
  36.  
  37. {$DEFINE FINAL}
  38.  
  39. { $ DEFINE FLOAT}
  40. { $ DEFINE FLOATEM}
  41.  
  42. { $ DEFINE OVERLAY}
  43.  
  44. {+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++}
  45.  
  46.  
  47.  
  48.  
  49.  
  50. {General compiler directives}
  51.  
  52. {$V-}   {no string length checking}
  53.  
  54. {$IFDEF FINAL}
  55.     {$S-,R-,L-,D-}
  56. {$ELSE}
  57.     {$S+}
  58.     {$R+}
  59.     {$L+}
  60.     {$D+}
  61.     {$DEFINE CHECK}
  62. {$ENDIF}
  63.  
  64. {$IFDEF OVERLAY}
  65.     {$F+}
  66.     {$O+}
  67. {$ENDIF}
  68.  
  69. {Note the floating point type casting is in the totReal unit}
  70.  
  71. {$IFDEF FLOAT}
  72.     {$IFDEF FLOATEM}
  73.         {$N+,E+}
  74.     {$ELSE}
  75.         {$N+,E-}
  76.     {$ENDIF}
  77. {$ELSE}
  78.     {$N-,E-}
  79. {$ENDIF}
  80.